﻿Module Module1

    Sub Main()
        Dim fechanac As Date
        Dim nombre As String
        Dim años As Object
        Console.Title = "Ejercicio if condicional 2"
        Console.WriteLine("Fecha actual: " & Today.ToLongDateString)
        Console.Write("Escribe tu nombre: ")
        nombre = Console.ReadLine()
        Console.Write("Escribe tu fecha de nacimiento: ")
        fechanac = Console.ReadLine()
        'Console.WriteLine(nombre & " este año cumples " & (Today.Year - fechanac.Year) & " años")'
        años = DateDiff("yyyy", fechanac, Now) 'calculo de la edad exacto
        If (Today < DateSerial(Year(Now), Month(fechanac), Day(fechanac))) Then '
            años = años - 1
        End If
        Console.WriteLine(nombre & " este año cumples " & años & " años")
        If (fechanac.Month = Today.Month And fechanac.Day = Today.Day) Then
            Console.WriteLine("FELICIDADES!!!!! Hoy es el dia de tu cumpleaños")
        End If
        Console.ReadKey()


    End Sub

End Module
